کد باز کردن Url در ویژوال بیسیک

سلام

با استفاده از این کد بسیار کاربردی میتونید یه لینک(Url) رو از داخل ویژوال بیسیک باز کنید

کافیه یه دکمه به فرم اضافه کنید و این کد رو تو قسمت جنرال فرم کپی کنید:

 


 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute hwnd, "open", "http://programming..ir/", vbNullString, vbNullString, conSwNormal
End Sub

Private Sub Form_Load()
Command1.Caption = "Open My blog"
End Sub

 


 



نظرات شما عزیزان:

نام :
آدرس ایمیل:
وب سایت/بلاگ :
متن پیام:
:) :( ;) :D
;)) :X :? :P
:* =(( :O };-
:B /:) =DD :S
-) :-(( :-| :-))
نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه:







تاريخ : چهار شنبه 26 آذر 1393برچسب:, | 1:46 | نویسنده : NO |